home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / INOUT.F < prev    next >
Text File  |  1992-05-16  |  542b  |  33 lines
  1.  
  2. const address=378h,clock=378h,portin=379h
  3. const chigh=0fdh,clow=0fch,mask=80h,shift=2
  4. const counter=30000
  5.  
  6. var32 n32
  7.  
  8. adc ? counter+1     ;30,000 byte variable
  9.  
  10. out address,0feh
  11. out address,0fch
  12.  
  13. print bios "counter = ";counter
  14. start=timer
  15.  
  16. for i=1 to counter
  17.     bits=0
  18.     repeat 8
  19.     {
  20.     out clock,chigh
  21.     bits=((in portin) and mask)+bits*2
  22.     out clock,clow
  23.     }
  24.  
  25.     pokeb adc+i,(bits/mask) xor 0ffh
  26. next i
  27.  
  28. end=timer
  29. clicks=end-start
  30. n32=(counter/clicks)*182
  31. n32=n32/10
  32. print bios low n32;" bytes per second."
  33.